<%args>
  $directory
  $dirname
</%args>
%       if ( @samples ) {
%         my $i = 0;
%         foreach my $file ( @samples ) {
%           if ( $i++ ) {
              <!-- cut -->
%           }
              <& lib/sample.mason, dirname => $dirname, file => $file &>
%         }
%       }
%       else {
NO PEAKS
%       }
<%init>
  my @samples = `ls $directory/*.peak`;
</%init>
<%flags>
  inherit => 'syshandler'
</%flags>
